home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / GEN.DCR / 00485.ls < prev    next >
Encoding:
Text File  |  1998-12-02  |  2.3 KB  |  82 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on enterFrame
  6.   global ActiveHZone, lastRo
  7.   set ActiveHZone to "S6"
  8.   set startHZone to 2
  9.   set hZone1 to startHZone
  10.   set hZone2 to startHZone + 1
  11.   set hZone3 to startHZone + 2
  12.   set hZone4 to startHZone + 3
  13.   set hZone5 to startHZone + 4
  14.   set hzone6 to startHZone + 5
  15.   set ro to rollOver()
  16.   if (lastRo >= 17) and (lastRo <= 25) and (lastRo <> ro) then
  17.     cursor(-1)
  18.     puppetSprite(lastRo - 9, 0)
  19.   end if
  20.   set lastRo to ro
  21.   case ro of
  22.     hZone1:
  23.       initSprites()
  24.       go("OrdinateurS1")
  25.     hZone2:
  26.       initSprites()
  27.       go("OrdinateurS2")
  28.     hZone3:
  29.       initSprites()
  30.       go("OrdinateurS3")
  31.     hZone4:
  32.       initSprites()
  33.       go("OrdinateurS4")
  34.     hZone5:
  35.       initSprites()
  36.       go("OrdinateurS5")
  37.     hzone6:
  38.       initSprites()
  39.       go("OrdinateurS6")
  40.     17:
  41.       cursor([member "mousePointer", member "mousePointerMask"])
  42.       puppetSprite(17 - 9, 1)
  43.       set the member of sprite (17 - 9) to member "Or11HL"
  44.     18:
  45.       cursor([member "mousePointer", member "mousePointerMask"])
  46.       puppetSprite(18 - 9, 1)
  47.       set the member of sprite (18 - 9) to member "Or12HL"
  48.     19:
  49.       cursor([member "mousePointer", member "mousePointerMask"])
  50.       puppetSprite(19 - 9, 1)
  51.       set the member of sprite (19 - 9) to member "Or13HL"
  52.     20:
  53.       cursor([member "mousePointer", member "mousePointerMask"])
  54.       puppetSprite(20 - 9, 1)
  55.       set the member of sprite (20 - 9) to member "Or14HL"
  56.     21:
  57.       cursor([member "mousePointer", member "mousePointerMask"])
  58.       puppetSprite(21 - 9, 1)
  59.       set the member of sprite (21 - 9) to member "Or15HL"
  60.     22:
  61.       cursor([member "mousePointer", member "mousePointerMask"])
  62.       puppetSprite(22 - 9, 1)
  63.       set the member of sprite (22 - 9) to member "Or16HL"
  64.     23:
  65.       cursor([member "mousePointer", member "mousePointerMask"])
  66.       puppetSprite(23 - 9, 1)
  67.       set the member of sprite (23 - 9) to member "Or17HL"
  68.     24:
  69.       cursor([member "mousePointer", member "mousePointerMask"])
  70.       puppetSprite(24 - 9, 1)
  71.       set the member of sprite (24 - 9) to member "Or18HL"
  72.     25:
  73.       cursor([member "mousePointer", member "mousePointerMask"])
  74.       puppetSprite(25 - 9, 1)
  75.       set the member of sprite (25 - 9) to member "Or19HL"
  76.     otherwise:
  77.       initSprites()
  78.       go("OrdinateurS6")
  79.   end case
  80.   updateStage()
  81. end
  82.